Option Explicit
Sub N_Sample033()
    Dim a As Currency
    Dim myZei As Long
    a = Application.InputBox(Prompt:="пJײBG", Type:=1)
    Select Case a
        Case Is >= 1000000001: myZei = 2000000
        Case Is >= 500000001: myZei = 1500000
        Case Is >= 300000001: myZei = 100000
        Case Is >= 200000001: myZei = 60000
        Case Is >= 100000001: myZei = 40000
        Case Is >= 50000001: myZei = 20000
        Case Is >= 30000001: myZei = 10000
        Case Is >= 20000001: myZei = 6000
        Case Is >= 10000001: myZei = 4000
        Case Is >= 5000001: myZei = 2000
        Case Is >= 3000001: myZei = 1000
        Case Is >= 2000001: myZei = 600
        Case Is >= 1000001: myZei = 400
        Case Is >= 100000: myZei = 200
        Case Is >= 0: myZei = 0
        Case Else: Stop
    End Select
    MsgBox "һݭn|B" & myZei & "C"
End Sub
